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BBBBBBBBBBBB ABA AAA DDDDDDDDDDDD 
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15-Sep-1984 23:36: AX-11 Bliss-32 V4.0-742 p 

127308-1 382 7:88:38 PBX’ see GETREQ.832; 1 en 

MODULE GETREQ (MAIN=MAIN_BA 
LANG 


D 
UAGE (BL Iss32), 
IDENT = 'v04=000' 


BEGIN 


' 
Vee AERA AAA EAAEA HAART EAAAAAEAERERAAEREEAAAAAAAEEAAAAEAAARAEREAAETE RS 


'# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


& 

® 

* 

® 

® 

® 

® 

i 0 ‘ 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. * 
M ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

ie 

® 

ww 

* 

® 

® 


‘* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
's CORPORATION. 


ITY FOR THE USE OR RELIABILITY OF ITS 


ie DIGITAL ASSUMES NO RESPONSIBIL 
CH IS NOT SUPPLIED BY DIGITAL. 


1 

1 
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1 'e¢ 

1! 

' FACILITY: DYNAMIC BADBLOCK UTILITY 

: ! ABSTRACT: 
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THESE ROUTINES PERFORM THE ITERACTIONS W 
ACP FOR THE BAD BLOCK SCAN UTILITY.SPECI 


1. READ THE MAILBOX INTERFACING 
2. ACCESS THE SUSPECT FILE BY P 
A PREVIOUSLY OPENED CCB 


ITH 
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THE 

ATCHI 


ILE SYSTEM 
IONS ARE 

TY AND THE ACP 
S UCB INTO 


E 
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THE F 
FUNCT 
UTILI 
NG IT 
ENVIRONMENT : 

VAX/VMS OPERATING SYSTEM, VERSION 1.0 


AUTHOR: THOMAS G. DOPIRAK, CREATION DATE: 7=JUNE-1978 
REVISION HISTORY: 


v03-001 LMP0035 L. Mark Pilant, | 28-Jun-1982 13:15 
Correct problems that resulted in informational messages. 
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LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 


FORWARD ot g A 


MAIN _BAD:NOVALUE, 
RESTORE “CHANNEL NOVALUE, 
SET_UCB?NOVALUE, 
OPER_CHANNEL, 
GET_BBSMSG 


GET™CC 
EXTERNAL ROUTINE 
DATA_INIT:NOVALUE. 


13-Sep-1944 4 o " mn AX-11 Bliss-32 V4.0-742 Page 


'MAIN PROGRAM 

'PLACE SYSS$DISK UCB oak INTO CCB 
'SET UCB ADDRESS IN 
'OPEN an thie "9 PACE. AND SYSS$DISK 
'READ MAIL F F11ACP 

' get cautions a CCB of channel 


~ 
oO 


BADBLK.SRC GETREG -B32;1 a5 


14 
GETREQ 18.36 1984 23:36: AX-11 Bliss-32 V4.0-74 Page 
v04- 12-Sep-19 4 $f: 36:39 EBADBLK SRCIG GETREG o:B5004 . 
es 0074 1! 
;. © 0075 1 'OWN STORAGE 
: 77 Bo78 1! 
; # 0077 1 
: 79 0078 1 GLOBAL 
3 80 0079 1 CHANNEL: WORD, 'CHANNEL NUMBER OF SYSSDISK 
3 81 0080 1 MBX_CHANNEL: WORD, 'CHANNEL NUMBER OF F11ACP MAILBOX 
; 8 it 1 cce0ce ‘ADDRESS OF UCB ENTRY IN CCB 
$ 8 00 ; 1 OLD_UCB, :UCB ADDRESS FOR OPEN CHANNEL 
B 84 008 1 SYSSDISK UCB ‘SAVED ADDRESS OF UCB FOR SYSS$DISK 
; 3? bone ; ACP_MAIL: TBLOCKCBBSSC LENGTH, BYTE); i MESSAGE FROM F11ACP 
3 87 0086 1 !READ ONLY STORAGE 
; «BB 0087 1! 
; 8 0088 1 
; 90 0089 1 BIND 
; + 0090 1 
3 92 0091 1 DISK_DESC= sade cipcenaneary oy gt $DISK'), 
; 93 009 1 PLIT BYTEC'SYSSDISK')) 
: 94 0093 1 
; 695 0094 1 LITERAL 
; 64% 0095 1 TRUE=1; 
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1OPEN CHANNELS TO SYS$DISK AND THE F11ACP MAILBOX 
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‘4 
'GET THE ADDRESS OF THE CCB FOR OPEN CHANNEL 
IF NOT SCMKRNL(ROUTIN=GET_CCB) 
RETURN; 


WO OONOu 


'¢ 
!CYCLE THROUGH UNTIL NOTHING IN MAILBOX TO DO 
WHILE TRUE DO 
BEGIN 


PAPAS OAOOOUMIUIMIUINN 


NOT GET_BBSMSG() 
BEGIN 
RESTORE_CHANNEL () ; 
RETURN 
END; 

14 

iSET UCB FOR SUSPECT FILE INTO OPEN CCB 
SCMKRNL (ROUT IN=SET_UCB); 


'@ 


iPROCESS THE FILE 
SCAN(); 
ND; 


WN — SO VONOUSWN—OOOnNOu 
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0000000 
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Be Se Se Be Oe Oe Ge Se Oe Se OF Ss Se Ge Oe Se Se Se Oe Se Se Se Se Se Sse Se Se Se Se Se tee 
a ee ee ee ed ed ed ed od td 


mm 
2 
o 

ee 


-TITLE 


- IDENT 
-PSECT 


ASCII 
- LONG 


53 49 44 24 53 59 53 00000 P.AAB: 
00000008 00008 P.AAA: 
00000000" 0000C 


4B 


.PSECT 
00000 CHANNEL: : 
00002 MBX_CHANNEL: : 

BLKB 


00004 CCBUCB::.BLKB 
00008 OLD_UCB:: 


-BLKB 
Q000C SYS$DISK "UCB: : 


00010 ACP_MAIL:: 
-BLKB 


GETREQ 

\v04-000\ 
SPLITS,NOWRT ,NOEXE ,2 
\SYSSDISK\ 


-ADDRESS P.AAB 


SGLOBAL$ ,NOEXE ,2 


- | FN % 


3a 
¥64~600 


DISK_DESC= 
sEXT 
“EXTRN 
.PSECT 
0004 00000 MAIN BAD: 
52 000000006 00 9€E 0000 MOVAB 
0000v CF 99 FB 0000 CALLS 
oF 0 £9 0000E LBC 
00006 CF 90 FB 0001) CALLS 
E D4 00016 CLAL 
0000v CF 9F 00018 PUSHAB 
62 02 FB 0001C CALLS 
1E 50 £9 0O0IF BLBC 
0000v CF 00 FB 00022 18: CALLS 
06 0 €8 000 BLBS 
0000v CF 00 FB 000A CALLS 
04 0002F RET 
7E D4 00030 28: CLRL 
0000v CF 9F 00032 PUSHAB 
62 02 FB 00036 CALLS 
00006 CF 00 FB 00039 CALLS 
E2 11 0003E BRB 
04 00040 38 RET 


; Routine Size: 65 bytes, Routine Base: $CODE$ + 0000 


“ “Beo-19R 25:36:36 


AX-11 Bliss-32 V 
BADBLK.SRC Ge trea 


DATA init, SCAN 
SYSSCMKRNL 
SCODES,NOWRT ,2 
Sav a 
SYSSCMK R2 
#0, PEN CHANNEL 


#0, DATA_INIT 
-(§P) 


GET _CCB 

#2,~ SYSSCMKRNL 

RO. 3$ 

#0. GET_BBSMSG 

RO. 2$ 

#0, RESTORE_CHANNEL 
=(SP) 


SET_UCB 
#2, SYSSCMKRNL 
#0, SCAN 


~—- 


Be Se Be Se Se Be Be Be Be Se Be Se Be Se Be Se Se Se Be 


~ 


F 14 
TREQ 15-Sep-1984 23:36: AX-11 Bliss-32 V4.0-742 
vo4 14 ep f 30:38 EBADBLK-SRe GETREQ.B32;1 


al -Sep-1984 11 

: 188 185 1 GLOBAL ROUTINE GET_CCB = 

>; «(189 1 § 1 

; 190 1 1 tee 

; «191 4 81! 

3 136 334 : FUNCTIONAL DESCRIPTION: 

3 «6194 0191 1! THIS ROUTINE LOCATES THE CCB ASSOCIATED WITH A SPECIFIED 
s 393 BI36 1! CHANNEL NUMBER. THE ADDRESS OF THE UCB LONGWORD IN THE CCB 
; «196 0193 1! IS SAVED IN CCBUCB AND THE UCB ADDRESS ITSELF IS SAVED IN 
: 197 0194 1! OLD_UCB 

; 198 0195 1! 

3; 199 8138 1! 

; 200 19 1 ! INPUT PARAMETERS: 

; 201 0198 #1 

3 $06 0199 1! NONE 

3 $ 0200 1 

; 204 0201 1! 

3 20 bs0¢ 1 ! IMPLICIT INPUTS: 

; 206 0203 1! 

§ oon asee : CHANNEL: THE CHANNEL NUMBER WHOSE CCB IS BEING LOCATED 
3; 209 0906 1 ! OUTPUT PARAMETERS: 

; aw 0207 1! 

3 ew 0208 1! OLD _UCB: THE ADDRESS OF THE SYSSDISK UCB 

3 $18 S444 ' CCBOCB: ADDRESS OF THE UCB LONGWORD IN THE SYSSDISK CCB 
3; 214 0211 1 =! IMPLICIT OUTPUTS: 

; 215 oei¢ 1! NONE 

; 216 021 1! 

3 HHA 0214 1 ! ROUTINE VALUE: 

: 218 0215 1! 

; 219 0216 1! IF CCB CAN BE FOUND THE SUCCESS 

3; 220 pei? 1 

3 er 0218 1! 

; $56 0219 1 ! SIDE EFFECTS: 

s @e 0220 1! NONE 

: 224 o¢¢3 1! 

3 @e3 02 § 1 I= 

; 226 0225 1 

3; 2e7 0224 1 

; 228 0225 BEGIN 

3 $3 ps8 

3 0 8 27 LINKAGE 

$ 31 é 8 L_VERIFYCHAN = JSB (REGISTER = 0) : 

3 § 0229 GLOBAL (CCB = 1) 

: 23 0931 NOPRESERVE (2, 3, 4, 5); 

; 3 3 GLOBAL REGISTER 

s 236 023 ccB = 1; ! CCB address returned 

: 237 0234 

: 238 5 LOCAL 

; +4 STATUS; ! status of system call 
3 41 33 EXTERNAL ROUTINE 

5 4g 0239 IOCSVERIFYCHAN =: L_VERIFYCHAN ADDRESSING_MODE (ABSOLUTE); 
3 os ase9 ! exec routine to find CCB 


14 
GETREG ts “1 K-11 Blise-32 V4.0-74 Pa 
vbae ane b= 1882 FFi8hi8$ | HaNo a ek ses cee tS - 8354 no 
'@ 
iCALL EXEC ROUTINE TO FIND CCB ADDRESS GIVEN CHANNEL NUMBER 
STATUS = IOCSVERIFYCHAN (.CHANNEL); 


'@ 
'SAVE OLD UCB ADDRESS AND ADDRESS OF UCB ADDRESS IN CCB 


NOUS WN OO OONOUL UN 


DPSS £* SS 


reat al ¥al al al al vaio) yy at at a 
OOONOUS WOO w 
Ooooooocooooooooo 
POPSPOPOROPoPonorofrornonofnonofnongd 


BEGIN 
P CCB:REF BLOCK; 
CCBUCB=CCBCCCBSL_UCB); 
OLD_UCB=. CCBLCCBSL_uCa); 
END: 
RETURN .STATUS 
2 1 END; ! end of routine GET_CCB 
.EXTRN IOCSVERIFYCHAN 
OFFC 00000 .ENTRY GET_CCB, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,= 
0 0000' cF 3¢ 00002 MOVZWL CHANNEL, RO ; 
000000006 9F 16 00007 JSB ae IOCSVERIF YCHAN : 
0000" CF 51 00 0000D MOVL CCB, CCBUCB F 
0000" (CF 61 DO 00012 MOVL (CCB), OLD_UCB ; 
04 00017 RET : 


; Routine Size: 24 bytes, Routine Base: SCODES + 0041 


261 0258 1 


14 
GETREO 15-Sep-1984 23:36: AX=11 Bliss-32_v4.0-74 Page 9 
vo4- Va-$ep-1986 11:50:38 EBADBLK SREIGE TREO: O32: st 


> 264 59 1 GLOBAL ROUTINE SET_UCB:NOVALUE= 

: 265 60 1 

; 26 61 1 !+44 

3 24 86 : FUNCTIONAL DESCRIPTION: 

; 269 6 66 1! ROUTINE PLACES THE UCB ADDRESS FOUND IN ITS MAIL FROM 

; 270 65 1! FIIACP INTO THE CCB OF THE OPEN CHANNEL, THEREBY 

; f} $6 } } HAVING ACCESS TO THE SUSPECT DISK 

° 7 0268 1 ! FORMAL PARAMETERS: 

. on 

; 7 8 saan. 

3 8 i ! IMPLICIT INPUTS: 

: 7 0274 1! ACP_MAIL: BUFFER CONTAINING MAIL FROM LAST READ OF F11ACP 

bs 80 0275 1! MAILBOX 

3; 281 0276 1! 

; see 0277 1°! IMPLICIT OUTPUTS: 

; 28 0278 1! 

3 see 0279 1! NONE 

; 285 0280 1! 

: 286 ose 1 ! ROUTINE VALUE: 

; 287 0 Hf 1 ! COMPLETION CODES: 

: 288 02835 1! 

3; 289 pees 1! NONE 

: 290 285 1! 

; 291 0286 1 ! SIDE EFFECTS: 

3 $3 0287 1! 
:; 2g 0288 #1! NONE 

3 294 0289 1! 

: 295 0290 1 !-- | 
; 296 0291 1 
: 297 5354 BEGIN | 
; 298 029 | 
3 344 0294 
: 300 0295 'e 
; 301 0296 ‘REPLACE THE UCB ADDRESS 

: 30 0297 § 

; 0298 . CCBUCB=.ACP_MAILCBBS$L_UCB); 

: 304 0299 1 END; 


0000 00000 -ENTRY SET_UCB, Save nothing : 0259 
0000° oF 0000* CF bd 00002 MOVL ACP_MAIL+8, @CCBUCB 3 8538 | 
04 00009 RET : 0299 | 


; Routine Size: 10 bytes, Routine Base: $CODE$ + 0059 
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TREQ 14.36 -1984 23:36: AX-11 Bliss-32 V4.0-742 Pp 10 
Coan Vane ep= 198 F41805389 — Hedpoen Satie seta o3o+4 39° 8) 
07 9 ROUTINE OPEN_CHANNEL= 
09 : 144 
10 : i FUNCTIONAL DESCRIPTION: 
1g 4 i THE ROUTINE OPENS CHANNEL TO THE SYS$DISK AND 
1 5 i ACP OCK_MBX. YSSDISK CHANNEL IS USED TO 
14 i OBTAIN ACCESS TO WHAT MIGHT BE AN ALLOCTATED DISK. 
15 5 i THE MBX CHANNEL IS USED TO RECEIVE MAIL FROM THE 
16 ; : FITACP, THAT IS THE WORK ORDERS FOR FILES TO PROCESS 
18 1 1! FORMAL PARAMETERS: 
19 : i 
20 ; NONE 
32¢ & i IMPLICIT INPUTS: 
32 6 i 
324 7 i NONE 
325 é i 
326 3 i IMPLICIT OUTPUTS: 
328 1 i CHANNEL: CHANNEL TO SYS$DISK 
¢9 : MBX_CHANNEL: CHANNEL TO F11ACP MAILBOX 
3 4 i ROUTINE VALUE: 
33 3 i COMPLETION CODES: 
3 7 i SHOULD EITHER S$ASSIGN FAIL THEN THE FAILURE CODE IS RETURNED 
3 8 : OTHERWISE SUCCESS IS RETURNED 
3 0 i SIDE EFFECTS: 
3 1 
$i 
4 i 
5 
6 
? 
8 
9 


MBX_DESC=UPLIT (ZCHARCOUNT(*ACPS$BADBLOCK MBX"), 
UPLIT BYTE (*ACPSBADBCOCK_MBX")); 


'¢ 


‘OPEN A CHANNEL THE THE CURRENT DISK 


NOT (STATUS=$ASSIGN(CHAN=CHANNEL ,DEVNAM=DISK_DESC)) 
RETURN .STATUS; 


PVN Ee BP BE BE EE EEA. ANAAIWIWINIRIPININPININININID 4 2 OS S| 2 QOOOOOCOOCOO 
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'¢ 
'OPEN A CHANNEL TO THE MAILBOX FROM F11ACP 


SOSOOOCOSCOSOSOSOCOSOCOSOCOOSOSOSOSSSOSSOSOOCoCCooOCOCOoOCOOOOOCOOOOOOOOOOOOoOO 
WWIWA.AINI AAAI AN WAAL A AINA AIN NINA AANA NWA NIWA WANNA AAWA.AAANIA AAAS 
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TREQ 14.56 -1984 23:36: AX-11 Bliss-32 V4.0-74 Page 11 
$i. 500 12-9 08- 1382 97:30:38 YBADBLK SRE GETREQ.B32; ~ (8) 
> 364 7 EGIN 
3 65 34 PERE SGNCCHANS. CHANNEL) : 
3 28 RETURN .STATUS 
; » 60 END; 
; 368 61 
3 9 $6 RETURN TRUE 
; 0 6 END; 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


42 4D SF 48 43 GF 4C 42 44 41 42 24 50 43 ¢} 89010 P.AAD: .ASCII \ACPSBADBLOCK_MBX\ 3 
00000010 90020 P.AAC: .LONG 16 F 
00000000 00024 “ADDRESS P.AAD : 


MBX_DESC= P.AAC 
.EXTRN SYSSASSIGN, SYSSDASSGN 


.PSECT $CODES,NOWRT,2 
000C 00000 OPEN_CHANNEL: 
WORD 


Save R2,R3 ; 0300) 
53 000000006 00 9€ 00002 MOVAB SYS$ASSIGN, R3 : | 
7E 7C€ 00009 CLRQ = =(SP) : 0347. 
0000" CF 9F 0000B PUSHAB CHANNEL : 
0000" CF 9F OOOOF PUSHAB DISK_DESC : 
63 04 FB 00013 CALLS #4, SYSSASSICN 3 
52 50 dO 00016 MOVL * STATUS F 
1F 52 59 90019 BLBC STATUS, 1$ : 
7E 7C 0001C CLRQ =(SP) > 0355 
0000" CF 9F 0001 PUSHAB MBX_CHANNEL : 
0000" CF 9F 0002 PUSHAB MBX" F 
63 04 FB 00026 CALLS #4, SYSSASSIGN : 
52 50 DO 00029 MOVL RO, STATUS ; 
10 52 ES 0002¢ BLBS STATUS, 2$ : 
7E 0000" CF 3C 0002F MOVZWL EL, -(SP : 0358 
000000006 00 01 FB 000 CALLS #1, SYS$DASSGN : 
5 52 D0 00038 1$: MOVL STATUS, RO : 0359 | 
04 0003€ RET : 
50 01 DO O003F 2s: MOVL #1, RO : 036 
04 00042 RET F 


: Routine Size: 67 bytes, Routine Base: S$CODE$ + 0063 


14 
15-Sep-1984 23:36: AX~11 BLiss=32_¥4.0 
yeaReen ORs FFEaiHg | HAGA! Oktegcze 4 -0576 
ROUTINE GET_BBSMSG= 


'o4 


Ooo 
WWWAN 


LEAF 
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S 
So 
B~ BB EX AAAI ININININIANIPIN NINN IA) a a a a i i ee ee ed ee ed ed ed ee ed ed ed ed 


0 44 ; FUNCTIONAL DESCRIPTION: 
0368 i THIS ROUTINE ATTEMPTS TO READ MAIL FROM TH ME 
0370 i MAILBOX LINKING THE F11ACP. TO TH BADBL OcK 
9371 i IF THE READ IS SUCCESSFUL THE MESSAGE TYPE wae LENGTH 
0 ie i OF THE MAIL IS CHECKED, IF EITHER I$ WRONG THE MESSAGE 
037 i 1S DISGARDED AND ANOTHER IS READ. IF A READ FAILS, 
0 2 ! THE FAILURE STATUS IS RETURNED BY THE ROUTINE. 
0376 FORMAL PARAMETERS: 
0378 i NONE 
0379 i 
0380 i IMPLICIT INPUTS: 
0381 i 
0382 i NONE 
038 i 
0384 i IMPLICIT OUTPUTS: 
0386 ACP_MAIL: MAIL IS READ INTO THIS BLOCK 
0388 i ROUTINE VALUE: 
0389 i COMPLETION CODES: 
0391 i IF THE MAILBOX READ FAILS THE FAILURE 1S RETURNED 
0398 OTHERWISE TRUE. 
0394 i SIDE EFFECTS: 
0395 
i 
i 


404 039 NONE 
039 
4 0398 -- 
0399 
40. BEGIN 
0401 LOCAL 
410 040 STATUS; 
411 40 
$12 404 
41 9405 MBX_I0SB:VECTOR[4 ,WORD); 
414 0406 
415 07 '¢ 
$16 408 ‘LOOP UNTIL AN ERROR OF EOF 
41 409 
418 410 WHILE TRUE DO 
419 11 
420 Belg 
2] Oe BEGIN 
é § gel? READ FROM THE MAILBOX AND CHECK THE SYS SERV STATUS 
425 Pp 419 iF-NOT (STATUS= SO1OUC CHANS WBE CHANNEL, 
426 P 0418 NC=10$_ RE ADVBLKS 10SR, NOW, 
427 P 0419 TOsb= MBX" 
428 P 0420 P1=ACP ite 


fi 


Dat et ek ek el et Del et ek ed et ak et 
WAWINWWINIWInonononofronofronoerny 


CONAUE WN O OONAOUS WN 


1$-S6p-19 4 $326: 36 AXx-11 Ob ieee atate Osos 


14-Sep-1984 
P2=BBS$C_LENGTH)) 


1 


THEN 
RETURN .STATUS; 


$4 
: CHECK 10 STATUS 


THe NOT .MBX_10SB(0) 
RETURN .MBX_IOSB(0); 


14 
'CHECK FOR PROPER MESSAGE TYPE AND LENGTH 


(.ACP_MAILCBBS$B_MSGTYPE] EQL MSG$_SCANBAD) 
(.MBX_I10SBC1) EQL BBSSC_LENGTH) 
RETURN TRUE; 


END 
-PSECT 
00000 MBX_I0SB: 

-BLKB 
-EXTRN 
«PSECT 

0004 00000 GET_BBSMSG: 

«WORD 

52 0000" CF 9E 80008 OVAB 

7E 7C 00007 1 CLRQ 

7E 7C 00009 CLRQ 

12 0D 00008 PUSHL 
0000° cr oF Benge PUSHAB 

E 7C 00011 CLRQ 

52 go Bolg USHL 
7E 71. 8F 9A 00015 MOVZBL 
7E 0000° cr 3C 00019 MOVZWL 

E 04 0001 CLRL 

000000006 00 8 Fe 00 CALLS 

17 E9 000 BLBC 

04 6 8 38 A BLBS 
50 6 C 00020 MOVZWL 

4 00050 RET 

28 0000‘ CF 91 00031 2$ CMPB 

CF is 00 g BNEQ 

12 02 A2 861 000 CMPW 


BADBLK.SRC EQ.832; 


SOWNS ,NOEXE ,2 


8 
SYS$Q10W 
SCODES,NOWRT,2 


R 
#113, -(SP) 
MBX CHANNEL, -(SP) 


=(§ 
#i2, SYS$Q10W 
STATUS, 3$ 
MBX_105B, 2$ 
MBX~10SB, RO 
ACP_MAIL, #40 


MBX_I10SB+2, #18 
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" TRB BA ate 


; Routine Size: 66 bytes, Routine Base: S$CODE$S + 00A6 


¢—-———_-_- ——__ ----- —- --—— + Or rr re a _ — 


y 14 
Na Q 15-Sep-1984 $326: 36 AX-11 Bliss-32 V4.0-74 a Page 15 


-000 14-Sep-1984 BADBLK.SRCJGE eTREG 0.832; (10) 
> 455 O46 1 GLOBAL ROUTINE RESTORE_CHANNEL : NOVALUE= 
: 456 447 1 
: 457 0448 1 !44 
3 $28 re) : FUNCTIONAL DESCRIPTION: 
: 460 ES 1 i ROUTINE RESTORES THE UCB ADDRESS FO THE SYSS$DISK INTO 
; 461 O4d¢ THE ACCESSED CCB AND $DASSGN'S BOTH OPEN CHANNELS 
3 re 0454 1 ! FORMAL PARAMETERS: 
: 464 0455 1: 
: 465 0456 1 NONE 
: 466 0457 1: 
: 467 0458 1 | IMPLICIT INPUTS: 
: 468 0459 1: 
: 469 0460 1 CHANNEL: SYS$DISK CHANNEL 
; $0 ores ' : MBX_CHANNEL: CHANNEL NUMBER TO F11ACP 
: 47 0463 1°! IMPLICIT OUTPUTS: 
: 47 0464 1: 
: 474 0465 1: NONE 
: 475 0466 1! 
: 4676 0467 1 ! ROUTINE VALUE: 
: 477 0468 1 | COMPLETION CODES: 
: 478 0469 1 
: 479 0470 1: NONE 
; 480 0471 1: 
> 481 0472 1 ! SIDE EFFECTS: 
; 48 0473 1! 
: 48 0474 1: NONE 
3 0475 1: 
> 485 0476 1 ine 
3 0477 1 
: 487 0478 2 BEGIN 
; 488 0479 git 14 
; 489 0480 {PU PUT OLD UCB ADDRESS BACK INTO CCB 
; 491 048 
: 49 048 ACP_MAILCBBS$L_UCBJ=.OLD_UCB; 
> 49 0484 SCMRRNL (ROUT IN=SET_UCB) ; 
: 494 04 
: 495 0486 e+ 
: 496 0487 {DE-ASSIGN BOTH ACTIVE CHANNELS 
: 498 489 * $DASSGN(CHAN=. CHANNEL); 
: 499 490 SDASSGN(CHAN=.MBX_CHANNEL) ; 'CLEAR MAILBOX CHANNEL 
s § 0491 1 END; 
0004 00000 -ENTRY RESTORE CHANNEL, Save R2 7 0446 
52 000000006 00 3 0002 MOVAB SYSS$DASSGN, R ; 
0000" CF 0000° DO 0000 MOVL OLD_UCB, AeP _MAIL+8 > 0483. 
t p4 0010 LRL (SP) > 0484 
FFSB OCF OOF 00012 PUSHAB set é : 
000000006 00 02 FB 00016 CALLS #2, OT SSCHKRNL ; 


rc 


15 | 
9542500 1ar8ebn 1986 7184588 BADR She Ge SRG O35" Page 40S 


7E 0000" CF 3¢ 00010 MOVZWL CHANNEL -(SP) : 0489. 

4 01 FB 000¢¢ CALLS SYS$DASSGN : 

7E 0000" CF 3C 000 MOVZWL fai _CHANNEL, =(SP) + 0490 

62 01 FB 0002A CALLS #1, SYS$DASSGN : | 
04 0002D RET + 0491 


; Routine Size: 46 bytes, Routine Base: S$CODE$S + O0E8 


303 p88 1 END 

04 04935 0 ELUDOM 

: P 
; Name Bytes 

: $GLOBAL$ 3 
; SPLITS 4 
3 SCODES 27 
> SOWNS 

3 Library 
; File 


~-$255$DUA28: CSYSLIBILIB.L32;1 


15 
Bom 25:36:36 YAH Bl ie8c52,v4.0-742 


SECT SUMMARY 
Attributes 

4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, CON,NOPIC,ALIGN(2) 
Q NOVEC,NOWRT, RD .NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
8 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL CON,NOPIC,ALIGN(2) 
8 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, L. CON,NOPIC,ALIGN(2) 
Statistics 

cusnnwum Symbols -------- Pages Processing 

Total Loaded Percent Mapped Time 

18619 13 0 1000 00:01.9 


COMMAND QUALIFIERS 


; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GETREQ/OBJ=O0BJ$:GETREQ MSRC$:GETREQ/UPDATE=(ENH$:GETREQ) 


; Size: 278 code + 82 data bytes 
: 00:09.2 


Elapsed Time: 00:15.5 
Lines/CPU Min: 3215 
poneneel Saas 14060 
aaeey Used: 71 pages 
Compilation Complete 


—~ 
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